home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok49.lha / Speech / txt / TestSpeech.mod < prev    next >
Text File  |  1993-08-15  |  845b  |  54 lines
  1. MODULE TestSpeech;
  2.  
  3. IMPORT s:Speech,
  4.        z:ZeichneGesicht;
  5.  
  6. VAR
  7.   out     : ARRAY 1024 OF CHAR;
  8.   Result  : LONGINT;
  9.   i       : INTEGER;
  10.  
  11. BEGIN
  12.   s.MouthProc := z.DrawMouths; (* Prozedur zum Zeichnen der Mundformen *)
  13.  
  14.   (* zuerst in Phoneme Übersetzen *)
  15.   Result := s.Translate(" 10 . 9. 8. 7. 6. 5. 4. 3. 2. 1. 0. Liftoff!",out);
  16.  
  17.   (* und dann aussprechen *)
  18.   s.SayPhonemes(out,s.DefaultVoice);
  19.  
  20.   (* oder einfacher : alles zugleich *)
  21.   s.Say("This is a little test of the module Speech!");
  22.  
  23.   (* und nun mit Frauenstimme *)
  24.   s.DefaultVoice.sex := 1;
  25.   s.DefaultVoice.pitch := 140;
  26.   s.Say("Now i am speaking in a female voice.");
  27.  
  28.   (* langsam *)
  29.   s.DefaultVoice.rate := 80 ;
  30.   s.Say("I am speaking slowly now.");
  31.  
  32.   (* schnell *)
  33.   s.DefaultVoice.rate := 200;
  34.   s.Say("And This is rather fast!");
  35.  
  36. END TestSpeech.
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.